<?php
require_once $_SERVER['DOCUMENT_ROOT'] . '/proyecto/clases/autoload.inc.php';		
  require_once ($_SERVER['DOCUMENT_ROOT'] .'/proyecto/modulos/informes/config/lang/eng.php');		
  require_once ($_SERVER['DOCUMENT_ROOT'] . '/proyecto/modulos/informes/tcpdf.php');		
  if (Zen::IniciarSesion())		
  {		
     $estado = stripslashes(htmlspecialchars(trim($_GET['estado'])));		
     $fecha1 = stripslashes(htmlspecialchars(trim($_GET['fecha1'])));
     $fecha2 = stripslashes(htmlspecialchars(trim($_GET['fecha2'])));			
     $rs = Zen::Consulta("SELECT 	RES.RES_ID AS ID_RESERVA,
	ERE.EXRES_FECHA AS FECHA_EXAMEN,
	TO_CHAR(ERE.EXRES_HORA,'hh:mi') AS HORA_EXAMEN,
	ERE.EX_CODIGO AS CODIGO_EXAMEN,
	UPPER(EXA.EX_NOMBRE) AS NOMBRE_EXAMEN,
	RES.PAC_RUT AS RUT_PACIENTE, 
	UPPER(PAC_NOMBRES || ' ' || PAC_APPATERNO || ' ' || PAC_APMATERNO) AS NOMBRE_PACIENTE,
	UPPER(REC.REC_NOMBRE) AS NOMBRE_RECURSO,
	CASE 	WHEN UPPER(ERE.ESRES_ESTADO) = 'SOL' THEN 'SOLICITADA' 
		WHEN UPPER(ERE.ESRES_ESTADO) = 'CON' THEN 'CONFIRMADA'
		WHEN UPPER(ERE.ESRES_ESTADO) = 'NUL' THEN 'ANULADA'
	END AS ESTADO

FROM	EXAMENES_RESERVA AS ERE 
	JOIN RESERVAS AS RES ON RES.RES_ID=ERE.RES_ID
	JOIN EXAMENES AS EXA ON ERE.EX_CODIGO = EXA.EX_CODIGO
	JOIN PACIENTES AS PAC ON PAC.PAC_RUT = RES.PAC_RUT
	JOIN RECURSOS_TEC AS REC ON REC.REC_ID=ERE.REC_ID

WHERE 	ERE.EXRES_FECHA >= '$fecha1' 
	AND ERE.EXRES_FECHA  <='$fecha2'
	AND UPPER(ERE.ESRES_ESTADO) = '$estado'",0);
    			
if($estado=='SOL') $estado='SOLICITADA';
else if($estado=='CON') $estado='CONFIRMADA';
else if($estado=='NUL') $estado='ANULADA';
else $estado='';
class MYPDF extends TCPDF {		
	public function Header() {
	    $fecha=date("d-m-Y H:i:s");
		$image_file = K_PATH_IMAGES.'logo.png';
		$this->Image($image_file, 10, 10, 15, '', 'PNG', '', 'T', false, 0, '', false, false, 0, false, false, false);
		$this->SetFont('times', 'B', 8);
        $this->SetXY(25,11);
        $this->Cell( 0, 0, 'Centro de Imagenología S.A.', 0, false, 'L', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,15);
        $this->Cell( 0, 0, 'Administración y Finanzas', 0, false, 'L', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,9.5);
        $this->Cell( 0, 0, $fecha, 0, false, 'R', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,14);
        $this->Cell( 0, 0, $_SESSION['usuario'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
        $this->ln(4.5);
        $this->Cell(276.5, 0, 'Página '.$this->getAliasNumPage().' de '.$this->getAliasNbPages(), 0, false, 'R', 0, '', 0, false, 'T', 'M');
	}	
	public function Footer() {	
$html = <<<EOF
<hr width="945" />		
EOF;
$this->writeHTML($html, true, false, false, false, '');		
	}	
}		
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);		
$pdf->SetCreator(PDF_CREATOR);		
$pdf->SetAuthor('Nicola Asuni');		
$pdf->SetTitle('TCPDF Example 003');		
$pdf->SetSubject('TCPDF Tutorial');		
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');		
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);		
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));		
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));		
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);		
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);		
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);		
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);		
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);		
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);		
$pdf->setLanguageArray($l);		
$pdf->SetFont('times', 'BN', 12);		
$pdf->AddPage('L');		
$txt = <<<EOD
Reservas
EOD;
$pdf->SetFont('times', 'B', 14);		
$pdf->Write($h=0, $txt, $link='', $fill=0, $align='C', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);		
$pdf->SetFont('times', 'U', 10);		
$pdf->ln(10);	
$pdf->SetFont('times', 'B', 10);  		
$pdf->Cell( 60, 0, 'Estado:', 0, false, 'R', 0, '', 0, false, 'M', 'M');		
$pdf->SetFont('times', '', 10); 		
$pdf->Cell( 48, 0, $estado, 0, false, 'L', 0, '', 0, false, 'M', 'M');		
$pdf->SetFont('times', 'B', 10);		
$pdf->Cell( 60, 0, 'Fecha:', 0, false, 'R', 0, '', 0, false, 'M', 'M');		
$pdf->SetFont('times', '', 10); 		
$pdf->Cell( 68, 0, $fecha1." - ".$fecha2, 0, false, 'L', 0, '', 0, false, 'M', 'M');
$pdf->ln(13);		
$html = <<<EOF
<hr width="945" />		
<br/>		
<table>		
    <tr>		
        <td width="100" align="center"><b>Id Reserva</b></td>		
        <td width="100" align="center"><b>Fecha Hora</b></td>		
        <td width="120" align="center"><b>Codigo Examen</b></td>		
        <td width="120" align="center"><b>RUT Paciente</b></td>		
        <td width="247" align="center"><b>Nombre Paciente</b></td>		
        <td width="247" align="center"><b>Recurso Tecnológico</b></td>		
    </tr>		
</table>		
<hr width="945" />
EOF;
$pdf->writeHTML($html, true, false, false, false, '');		
$pdf->SetFont('times', '', 10);				
$pdf->ln(5);
foreach ($rs as $k => $record){		
$pdf->Cell( 28, 0, $record['id_reserva'], 0, false, 'R', 0, '', 0, false, 'M', 'M');		
$pdf->Cell( 30, 0, $record['fecha_examen']. " ".$record['hora_examen'], 0, false, 'L', 0, '', 0, false, 'M', 'M');		
$pdf->Cell( 32, 0, $record['codigo_examen'], 0, false, 'L', 0, '', 0, false, 'M', 'M');		
$pdf->Cell( 34, 0, $record['rut_paciente'], 0, false, 'L', 0, '', 0, false, 'M', 'M');		
$pdf->Cell( 70, 0, $record['nombre_paciente'], 0, false, 'L', 0, '', 0, false, 'M', 'M');		
$pdf->Cell( 70, 0, $record['nombre_recurso'], 0, false, 'L', 0, '', 0, false, 'M', 'M');		
$pdf->ln(5);
}
ob_end_clean();	
$pdf->Output('r28.pdf', 'D');		
  }else
  {
     Zen::LogoutModulo();
  }
?>